﻿Public Class PhieuRutTienCrt

    Private _maSo As Integer
    Private _tenKH As String
    Private _soTienRutTu As Double
    Private _soTienRutDen As Double
    Private _ngayRutTu As Date
    Private _ngayRutDen As Date

    Private _soTienRut As Double
    Private _ngayRut As Date
    '
    Private _chkTenKH As Boolean
    Private _chkSoTienRut As Boolean
    Private _chkNgayRut As Boolean

    Public Property MaSo() As Integer
        Get
            Return _maSo
        End Get
        Set(ByVal value As Integer)
            _maSo = value
        End Set
    End Property
    Public Property TenKH() As String
        Get
            Return _tenKH
        End Get
        Set(ByVal value As String)
            _tenKH = value
        End Set
    End Property

    Public Property SoTienRutTu() As Double
        Get
            Return _soTienRutTu
        End Get
        Set(ByVal value As Double)
            _soTienRutTu = value
        End Set
    End Property
    Public Property SoTienRutDen() As Double
        Get
            Return _soTienRutDen
        End Get
        Set(ByVal value As Double)
            _soTienRutDen = value
        End Set
    End Property

    Public Property NgayRutTu() As Date
        Get
            Return _ngayRutTu
        End Get
        Set(ByVal value As Date)
            _ngayRutTu = value
        End Set
    End Property
    Public Property NgayRutDen() As Date
        Get
            Return _ngayRutDen
        End Get
        Set(ByVal value As Date)
            _ngayRutDen = value
        End Set
    End Property
    Public Property SoTienRut() As Double
        Get
            Return _soTienRut
        End Get
        Set(ByVal value As Double)
            _soTienRut = value
        End Set
    End Property
    Public Property NgayRut() As Date
        Get
            Return _ngayRut
        End Get
        Set(ByVal value As Date)
            _ngayRut = value
        End Set
    End Property

    Public Property ChkTenKH() As Boolean
        Get
            Return _chkTenKH
        End Get
        Set(ByVal value As Boolean)
            _chkTenKH = value
        End Set
    End Property
    Public Property ChkSoTienRut() As Boolean
        Get
            Return _chkSoTienRut
        End Get
        Set(ByVal value As Boolean)
            _chkSoTienRut = value
        End Set
    End Property
    Public Property ChkNgayRut() As Boolean
        Get
            Return _chkNgayRut
        End Get
        Set(ByVal value As Boolean)
            _chkNgayRut = value
        End Set
    End Property

    Public Sub New()
        _maSo = 0
        _tenKH = ""
        _soTienRutTu = 0.0
        _soTienRutDen = 0.0
        _ngayRutTu = New Date(2000, 1, 1)
        _ngayRutDen = New Date(2000, 1, 1)
        _soTienRut = 0.0
        _ngayRut = New Date(2000, 1, 1)
        _chkTenKH = False
        _chkSoTienRut = False
        _chkNgayRut = False

    End Sub


End Class
